home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / GNU / gawk_2_15_5.lha / gawk-2.15.5 / msg.ch < prev    next >
Encoding:
Text File  |  1995-01-20  |  1.2 KB  |  114 lines
  1. Changes for MSG.CH by Andreas Scherer, January 20, 1995.
  2.  
  3. @x l.26
  4. #include "awk.h"
  5. @y
  6. #include "ansiawk.h"
  7. @z
  8.  
  9. @x l.33
  10. err(s, emsg, argp)
  11. const char *s;
  12. const char *emsg;
  13. va_list argp;
  14. {
  15.     char *file;
  16. @y
  17. err(
  18. const char *s,
  19. const char *emsg,
  20. ...)
  21. {
  22.     char *file;
  23.     va_list argp;
  24.  
  25.     va_start(argp,emsg);
  26. @z
  27.  
  28. @x l.60
  29.     (void) fflush(stderr);
  30. @y
  31.     (void) fflush(stderr);
  32.     va_end(argp);
  33. @z
  34.  
  35. @x l.65
  36. msg(va_alist)
  37. va_dcl
  38. {
  39.     va_list args;
  40.     char *mesg;
  41.  
  42.     va_start(args);
  43.     mesg = va_arg(args, char *);
  44.     err("", mesg, args);
  45.     va_end(args);
  46. }
  47. @y
  48. msg(char *mesg,
  49. ...)
  50. {
  51.     va_list args;
  52.  
  53.     va_start(args,mesg);
  54.     err("", mesg, args);
  55.     va_end(args);
  56. }
  57. @z
  58.  
  59. @x l.79
  60. warning(va_alist)
  61. va_dcl
  62. {
  63.     va_list args;
  64.     char *mesg;
  65.  
  66.     va_start(args);
  67.     mesg = va_arg(args, char *);
  68.     err("warning: ", mesg, args);
  69.     va_end(args);
  70. }
  71. @y
  72. warning(char * mesg,
  73. ...)
  74. {
  75.     va_list args;
  76.  
  77.     va_start(args,mesg);
  78.     err("warning: ", mesg, args);
  79.     va_end(args);
  80. }
  81. @z
  82.  
  83. @x l.92
  84. fatal(va_alist)
  85. va_dcl
  86. {
  87.     va_list args;
  88.     char *mesg;
  89.  
  90.     va_start(args);
  91.     mesg = va_arg(args, char *);
  92.     err("fatal: ", mesg, args);
  93.     va_end(args);
  94. #ifdef DEBUG
  95.     abort();
  96. #endif
  97.     exit(2);
  98. }
  99. @y
  100. fatal(char *mesg,
  101. ...)
  102. {
  103.     va_list args;
  104.  
  105.     va_start(args,mesg);
  106.     err("fatal: ", mesg, args);
  107.     va_end(args);
  108. #ifdef DEBUG
  109.     abort();
  110. #endif
  111.     exit(2);
  112. }
  113. @z
  114.